object Form_Mail: TForm_Mail
  Left = 394
  Top = 262
  HelpContext = 510
  BorderStyle = bsDialog
  Caption = 'Send note via E-mail'
  ClientHeight = 297
  ClientWidth = 507
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label_Status: TLabel
    Left = 25
    Top = 245
    Width = 48
    Height = 16
    Caption = 'Ready.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clHighlight
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Button_OK: TButton
    Left = 20
    Top = 265
    Width = 75
    Height = 25
    Hint = 'Accept settings and send note'
    Caption = '&E-mail note'
    Default = True
    TabOrder = 0
    OnClick = Button_OKClick
  end
  object Button_Cancel: TButton
    Left = 105
    Top = 265
    Width = 75
    Height = 25
    Hint = 'Close dialog box without sending email'
    Caption = 'Cancel'
    TabOrder = 1
    OnClick = Button_CancelClick
  end
  object Pages: TPageControl
    Left = 5
    Top = 5
    Width = 496
    Height = 231
    ActivePage = Tab_Send
    TabOrder = 2
    object Tab_Send: TTabSheet
      Caption = 'Message settings'
      object GroupBox_Source: TGroupBox
        Left = 5
        Top = 0
        Width = 256
        Height = 91
        Caption = ' What to send? '
        TabOrder = 0
        object RB_Current: TRadioButton
          Left = 15
          Top = 20
          Width = 231
          Height = 17
          Hint = 'Email only currently active note'
          Caption = '&Current note'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RB_All: TRadioButton
          Left = 15
          Top = 40
          Width = 151
          Height = 17
          Hint = 'Email ALL notes in currently open file'
          Caption = '&All notes'
          TabOrder = 1
        end
        object RB_File: TRadioButton
          Left = 15
          Top = 60
          Width = 221
          Height = 17
          Hint = 'Email the whole KeyNote file'
          Caption = '&Whole file (recipient must have KeyNote)'
          TabOrder = 2
        end
      end
      object GroupBox1: TGroupBox
        Left = 270
        Top = 0
        Width = 211
        Height = 91
        Caption = ' Format '
        TabOrder = 1
        object Label7: TLabel
          Left = 10
          Top = 65
          Width = 52
          Height = 13
          Caption = 'C&odepage:'
          FocusControl = Combo_Charset
        end
        object RB_PlainText: TRadioButton
          Left = 10
          Top = 15
          Width = 113
          Height = 17
          Hint = 'Send note text without RTF formatting'
          Caption = 'As &plain text (inline)'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RB_RTF: TRadioButton
          Left = 10
          Top = 35
          Width = 131
          Height = 17
          Hint = 'Send formatted text as an RTF file'
          Caption = 'As &RTF (attachment)'
          TabOrder = 1
        end
        object Combo_Charset: TComboBox
          Left = 70
          Top = 60
          Width = 126
          Height = 21
          Hint = 'Codepage (KeyNote performs NO conversion)'
          ItemHeight = 13
          Items.Strings = (
            'ISO-8859-1'
            'ISO-8859-2'
            'ISO-8859-5'
            'ISO-8859-9'
            'Windows-1250'
            'Windows-1251'
            'Windows-1253')
          TabOrder = 2
        end
      end
      object GroupBox2: TGroupBox
        Left = 5
        Top = 95
        Width = 476
        Height = 101
        Caption = ' Message information '
        TabOrder = 2
        object Label1: TLabel
          Left = 15
          Top = 25
          Width = 16
          Height = 13
          Caption = '&To:'
          FocusControl = Combo_TO
        end
        object Label2: TLabel
          Left = 15
          Top = 75
          Width = 39
          Height = 13
          Caption = '&Subject:'
          FocusControl = Edit_Subject
        end
        object Label3: TLabel
          Left = 15
          Top = 50
          Width = 16
          Height = 13
          Caption = '&Cc:'
          FocusControl = Combo_CC
        end
        object Combo_TO: TComboBox
          Left = 60
          Top = 20
          Width = 401
          Height = 21
          Hint = 'Enter recipient'#39's address, or select from list'
          ItemHeight = 13
          TabOrder = 0
        end
        object Edit_Subject: TEdit
          Left = 60
          Top = 70
          Width = 401
          Height = 21
          Hint = 'Enter the Subject line for the mail message'
          TabOrder = 2
        end
        object Combo_CC: TComboBox
          Left = 60
          Top = 45
          Width = 401
          Height = 21
          Hint = 'Enter additional address(es), or select from list'
          ItemHeight = 13
          TabOrder = 1
        end
      end
    end
    object Tab_SMTP: TTabSheet
      Caption = 'SMTP server settings'
      object GroupBox3: TGroupBox
        Left = 5
        Top = 0
        Width = 476
        Height = 196
        TabOrder = 0
        object Label4: TLabel
          Left = 15
          Top = 20
          Width = 65
          Height = 13
          Caption = '&SMTP server:'
          FocusControl = Edit_SMTPServer
        end
        object Label5: TLabel
          Left = 355
          Top = 20
          Width = 22
          Height = 13
          Caption = '&Port:'
          FocusControl = Edit_Port
        end
        object Label6: TLabel
          Left = 15
          Top = 70
          Width = 122
          Height = 13
          Caption = '&From (your email address):'
          FocusControl = Edit_From
        end
        object Label8: TLabel
          Left = 15
          Top = 115
          Width = 124
          Height = 13
          Caption = '&Text to place before notes'
          FocusControl = Edit_FirstLine
        end
        object Edit_SMTPServer: TEdit
          Left = 15
          Top = 35
          Width = 306
          Height = 21
          Hint = 'Name of email server used for dispatching messages'
          MaxLength = 127
          TabOrder = 0
        end
        object Edit_Port: TEdit
          Left = 355
          Top = 35
          Width = 51
          Height = 21
          Hint = 'Mail server port number (or type "smtp")'
          MaxLength = 5
          TabOrder = 1
        end
        object Edit_From: TEdit
          Left = 15
          Top = 85
          Width = 306
          Height = 21
          Hint = 'Your email address (The "From" field)'
          MaxLength = 127
          TabOrder = 2
        end
        object CheckBox_Log: TCheckBox
          Left = 15
          Top = 165
          Width = 191
          Height = 17
          Hint = 'Keep a log of communication with SMTP server'
          Caption = '&Log exchange with SMTP server'
          TabOrder = 4
        end
        object Edit_FirstLine: TEdit
          Left = 15
          Top = 130
          Width = 306
          Height = 21
          Hint = 'Optional text to be placed in the message before notes'
          MaxLength = 127
          TabOrder = 3
        end
      end
    end
  end
  object Button_Help: TButton
    Left = 190
    Top = 265
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 3
    OnClick = Button_HelpClick
  end
  object SmtpCli: TSmtpCli
    Tag = 0
    Port = 'smtp'
    CharSet = 'iso-8859-1'
    ContentType = smtpPlainText
    OnDisplay = SmtpCliDisplay
    OnHeaderLine = SmtpCliHeaderLine
    OnRequestDone = SmtpCliRequestDone
    Left = 444
    Top = 244
  end
  object GFLog: TGFLog
    Active = True
    MaxLines = 127
    DateStamp = False
    TimeStamp = True
    UniqueFileName = False
    AppendToFile = True
    ShowErrors = True
    DeactivateOnError = False
    Separator = '----- LOG SESSION ENDS -----'
    Left = 405
    Top = 245
  end
end